
(modulo. 7 4)				; => 3
(modulo. 8 3)				; => 2
(modulo. 6.7 2.4)			; => ~1.9    

(quotient 13 5)				; => 2
(quotient. 13 5)			; => 2
(quotient 13.5 5.5)			; => ERROR
(quotient. 13.5 5.5)			; => 2

(remainder 13 5)			; => 3
(remainder. 13 5)			; => 3
(remainder. 13.5 5.5)			; => 2.5

(next-multiple-of. 3 2)			; => 4
(next-multiple-of. 4 1.5)		; => 4.5
(next-multiple-of. 5 2.5)		; => 7.5

(quantize .84675738 0.01)		; => 0.85
(quantize .85046532 0.01)		; => 0.85

(map (compose exact->inexact 
	      (make-quantizer 1/100))
     '(12 234.356 3.2343 -5.3455))	; => (12 234.36 3.23 -5.35)

(map (make-quantizer 3) (iota 7 11))	; => (12 12 12 15 15 15 18)

(map even?. (list 1.0 1.5 2.0))		; => (#f #f #t)

(rationalize (inexact->exact 0.3) 1/10) ; => 1/3

(rationalizeE 0.3 0.1)		; => 1/3

